home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs32.d81 / examples.arc / BEGIN.A < prev    next >
Text File  |  1989-12-01  |  941b  |  26 lines
  1. ;begin.asm
  2. ;===================================================================
  3. ; begin loop command for CS-DOS batch files            12feb88 - CS
  4. ;===================================================================
  5.                                   
  6. int0e       = $170e               
  7. lpsave      = $1bc5               
  8. int22       = $1722                 ; CLC=get, SEC=get 1750 EXEC address
  9.                                   
  10. star        = $0b00               
  11.             .wor  star            
  12.             * =  star             
  13.  
  14.             jmp begin
  15.             dw Date
  16.                       
  17. begin       clc                   
  18.             jsr int22             
  19.             sta lpsave            
  20.             stx lpsave+1          
  21.             sty lpsave+2          
  22.             lda #0                
  23.             jmp int0e             
  24.                                   
  25.             .end                  
  26.